home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp1.arc / DOXMODD2.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-11  |  974b  |  36 lines
  1.  
  2. BEGIN (* Do_Xmodem_Download *)
  3.                                    (* Reset comm parms to 8,n,1 *)
  4.  
  5.    Xmodem_Bits_Save   := Data_Bits;
  6.    Xmodem_Parity_Save := Parity;
  7.    Xmodem_Stop_Save   := Stop_Bits;
  8.  
  9.    Async_Reset_Port( Comm_Port, Baud_Rate, 'N', 8, 1 );
  10.  
  11.                                    (* Perform transfer          *)
  12.    CASE Transfer_Protocol Of
  13.  
  14.       Xmodem_Chk:     Receive_Xmodem_File( FALSE );
  15.  
  16.       Modem7_CRC,
  17.       Telink:         Receive_Modem7_File( TRUE );
  18.  
  19.       Modem7_Chk:     Receive_Modem7_File( FALSE );
  20.  
  21.       Ymodem_Batch:   Receive_Ymodem_File;
  22.  
  23.       Ymodem:         Receive_Xmodem_File( TRUE );
  24.  
  25.       Xmodem_Crc:     Receive_Xmodem_File( TRUE  );
  26.  
  27.       ELSE ;
  28.  
  29.    END  (* CASE *);
  30.                                    (* Reset comm parms back *)
  31.  
  32.    Async_Reset_Port( Comm_Port, Baud_Rate, Xmodem_Parity_Save,
  33.                      Xmodem_Bits_Save, Xmodem_Stop_Save );
  34.  
  35. END   (* Do_Xmodem_DownLoad *);
  36.